home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / gfx / ifx / Saturate.lha / Saturation.ifx < prev   
Text File  |  1999-01-25  |  494b  |  43 lines

  1. /*
  2.  * $VER: Saturation 2.00.00 (24.12.98)
  3.  *
  4.  * Arexx program for the ImageFX image processing system.
  5.  * Written by Neil Huggett
  6.  *
  7.  */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. Message 'Changing Saturation...'
  12.  
  13. GetMain
  14. strng=result
  15.  
  16. strng=DELSTR(strng,1,1)
  17.  
  18. tmp=index(strng,'"')
  19.  
  20. strng=DELSTR(strng,1,tmp+1)
  21.  
  22. wide=WORD(strng,1)
  23. high=WORD(strng,2)
  24.  
  25. Redraw Off
  26.  
  27. Message "Buffer is " || wide || " x " || high
  28.  
  29. ADDRESS command
  30.  
  31. com='Saturate ' || wide || ' ' || high
  32.  
  33. com
  34.  
  35. ADDRESS
  36.  
  37. Message 'All done!'
  38.  
  39. Redraw On
  40.  
  41.  
  42. EXIT
  43.